home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / disk printer.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  49 lines
  1. 5 PRINT"[147]"
  2. 10 PRINTTAB(9)"DISK DIRECTORY PRINTER"
  3. 15 PRINTTAB(9)"     BY BOB SWIFT     "
  4. 20 PRINT"INSERT DISK AND PRESS 'P'"
  5. 30 PRINT"OR PRESS 'Q' TO END PROGRAM."
  6. 40 GETA$:IFA$<>"P"ANDA$<>"Q"THEN40
  7. 50 PRINT"[147]PRINTING DISK DIRECTORY"
  8. 60 IFA$="P"THENGOSUB1000:GOTO5
  9. 70 PRINT"[147]";:END
  10. 1000 OPEN1,8,15,"I0":CLOSE1
  11. 1010 OPEN1,8,0,"$0"
  12. 1020 N$=CHR$(0)
  13. 1030 GET#1,A$,A$
  14. 1031 GET#1,A$:IFA$<>CHR$(34)THEN1031:REM STRIP OFF CHARACTERS UNTIL QUOTES
  15. 1032 OPEN4,4:PRINT#4,"@ME";
  16. 1033 REM SET LH MARGIN, EMPHASIZED AND DOUBLE WIDE CHARACTERS ON PRINTER
  17. 1034 GET#1,A$:IFA$<>CHR$(34)THENPRINT#4,A$;:GOTO1034:REM PRINT TITLE ONLY
  18. 1035 GET#1,A$:IFA$<>""THEN1035:REM DISREGARD REMAINDER OF HEADER
  19. 1036 PRINT#4," ":PRINT#4," ":REM PRINT TWO BLANK LINES
  20. 1040 GET#1,A$,A$:IFA$=""THENCLOSE1:FORI=1TO3:PRINT#4," ":NEXT
  21. 1041 IFA$=""THENPRINT#4,"@":CLOSE4:RETURN:REM INITIALIZE PRINTER CONDITIONS
  22. 1050 GET#1,A$,B$ :REM # OF BLOCKS
  23. 1060 PRINT#4,ASC(A$+N$)+ASC(B$+N$)*256;
  24. 1070 GET#1,A$:IFA$=""THENPRINT#4," ":GOTO1040
  25. 1080 PRINT#4,A$;:GOTO1070
  26. 1100 REM:                             :
  27. 1101 REM:    DISK DIRECTORY PRINTER   :
  28. 1102 REM:              BY             :
  29. 1103 REM:          BOB SWIFT          :
  30. 1104 REM:                             :
  31. 1105 REM:   THIS PROGRAM WAS WRITTEN  :
  32. 1106 REM:   TO RUN WITH A COMMODORE   :
  33. 1107 REM:   64 COMPUTER, A GEMINI-10X :
  34. 1108 REM:   PRINTER, AND A 1541 DISK  :
  35. 1109 REM:   DRIVE. YOUR SYSTEM MAY    :
  36. 1110 REM:   VARY AND WILL PROBABLY    :
  37. 1111 REM:   REQUIRE SOME CHANGES TO   :
  38. 1112 REM:   THE PRINTER CODES. THESE  :
  39. 1113 REM:   SHOULD BE EASY TO FIND.   :
  40. 1114 REM:                             :
  41. 1115 REM:   I HOPE THAT YOU FIND THIS :
  42. 1116 REM:   PROGRAM TO BE AS USEFUL   :
  43. 1117 REM:   FOR DIRECTORY HARD COPIES :
  44. 1118 REM:   AS I HAVE.                :
  45. 1119 REM:                             :
  46. 1120 REM:   HAPPY COMPUTING!          :
  47. 1121 REM:                             :
  48. 1122 REM:                             :
  49.